home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE6.POM < prev    next >
Text File  |  1995-02-01  |  976b  |  38 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; CHOP up fixed-length record (i.e. no carriage returns or linefeeds)
  7. ;
  8. CHOP 1-123
  9. ;
  10. ; Extract the fields
  11. ;
  12. SET  First     = $FLINE[  1  12]
  13. SET  LastName  = $FLINE[ 13  25]
  14. SET  Street    = $FLINE[ 26  46]
  15. SET  Phone     = $FLINE[ 47  59]
  16. SET  Job       = $FLINE[ 60  84]
  17. SET  Comments  = $FLINE[ 85 119]
  18. SET  Rating    = $FLINE[120 121]
  19. ;
  20. ;  Remove surrounding spaces
  21. ;
  22. TRIM First      "B"   " "
  23. TRIM LastName   "B"   " "
  24. TRIM Street     "B"   " "
  25. TRIM Phone      "B"   " "
  26. TRIM Job        "B"   " "
  27. TRIM Comments   "B"   " "
  28. TRIM Rating     "B"   " "
  29. ;
  30. ; Ignore any garbage bytes at end of file
  31. ;
  32. IF   Rating = "" THEN OKAY = "N" ELSE "Y"
  33. ;
  34. ; Build output line
  35. ;
  36. OUT    OKAY = "Y" |"{First}","{LastName}","{Street}","{Phone}",
  37. OUTEND OKAY = "Y" |"{Job}","{Comments}",{Rating}
  38.